home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / keeper.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-07-07  |  6.0 KB  |  136 lines
  1. 10  SUM#=0:PRINT"Checking Data..."
  2. 20  FOR I=1 TO 1108:READ BYTE.%:SUM#=SUM#+BYTE.%:NEXT I
  3. 30  IF SUM# <> 86203 THEN PRINT"Error in Data Statements":GOTO 180
  4. 40  RESTORE:FOR I=1 TO 10:KEY I,"":NEXT I:CLS
  5. 50  LOCATE 10,10:PRINT"Type the trigger key for the screen window."
  6. 60  GOSUB 190
  7. 70  KEYS(1) = CODE1:KEYS(2) = CODE2:CLS
  8. 80  OPEN"KEEPER.COM" AS # 1 LEN = 1
  9. 90  LOCATE 5,30:PRINT"Creating Keeper.Com"
  10. 100  FIELD #1,1 AS BYTE.$:FOR N = 1 TO 1108
  11. 110  READ BYTE.%:IF BYTE.% <> -1 THEN GOTO 130
  12. 120  FOR JJJ=1 TO 2040:LSET BYTE.$=CHR$(0):PUT #1:NEXT JJJ:GOTO 160
  13. 130  IF BYTE.% <> -2 THEN GOTO 150
  14. 140  LSET BYTE.$=CHR$(CODE1):PUT #1:LSET BYTE.$=CHR$(CODE2):PUT #1:GOTO 160
  15. 150  LSET BYTE.$=CHR$(BYTE.%):PUT #1
  16. 160  NEXT N:CLOSE #1
  17. 170  LOCATE 5,30:PRINT"Keeper.Com Created"
  18. 180  END
  19. 190  DEF SEG = &H40
  20. 200  FKEY$=INKEY$:IF FKEY$="" GOTO 200
  21. 210  LOCATE 10,15:PRINT SPC(50):LOCATE 11,15:PRINT SPC(50)
  22. 220  TAIL=PEEK(26):TAIL=TAIL-2:IF TAIL < 30 THEN TAIL = 60
  23. 230  CODE1=PEEK(TAIL):CODE2=PEEK(TAIL+1)
  24. 240  RETURN
  25. 250  DATA 233, 226,  11,  40,  67,  41,  49,  57,  56,  53
  26. 260  DATA  32,  83,  46,  72,  79,  76,  90,  78,  69,  82
  27. 270  DATA  -1, 150,   3, 112, 240,   7,   0,   0,   0,   0
  28. 280  DATA   0,   0,   0,   9,   0,   0,   0,   0,   0,   0
  29. 290  DATA   0,   0,   0,   0,   0,   1,   1,   0,   1,   0
  30. 300  DATA   0,   0,   0,   0,  80,  83,  81,  82,  87,  86
  31. 310  DATA  30,   6, 156,  46, 255,  30,  32,   9, 187,  64
  32. 320  DATA   0, 142, 219, 139,  30,  28,   0,  59,  30,  26
  33. 330  DATA   0, 116,  73, 139,  22,  26,   0, 131, 234,   2
  34. 340  DATA 131, 250,  30, 115,   6, 186,  62,   0, 131, 234
  35. 350  DATA   2,  59,  22,  28,   0, 117,  17,  46, 128,  62
  36. 360  DATA  23,   9,   1, 116,  41,  46, 198,   6,  23,   9
  37. 370  DATA   1, 235,   7, 144,  46, 198,   6,  23,   9,   0
  38. 380  DATA  46, 131,  62,  21,   9,   0, 117,  30,  46, 139
  39. 390  DATA  22,  43,   9,  59,  22,  26,   0, 117,  10,  46
  40. 400  DATA 199,   6,  43,   9,   0,   0, 233,  81,   1, 139
  41. 410  DATA  22,  26,   0,  46, 137,  22,  43,   9, 131, 235
  42. 420  DATA   2, 131, 251,  30, 115,   6, 187,  62,   0, 131
  43. 430  DATA 235,   2, 139,  23,  46, 128,  62,  36,   9,   0
  44. 440  DATA 116,  86, 129, 250,  -2, 117, 114, 137,  30
  45. 450  DATA  28,   0,  46, 247,  22,  21,   9,  46, 131,  62
  46. 460  DATA  21,   9,   0, 117,  66,  46, 199,   6,  43,   9
  47. 470  DATA   0,   0,  46, 138,  38,  16,   9,  46, 136,  38
  48. 480  DATA  14,   9,  46, 136,  38,  15,   9,  46, 199,   6
  49. 490  DATA  17,   9, 252,   3, 141,   6, 124,  11,  46, 163
  50. 500  DATA  28,   9, 232, 182,   1,  46, 131,  62,  24,   9
  51. 510  DATA   9, 116,  15,  46, 161,  24,   9, 177, 102, 246
  52. 520  DATA 225,  46, 163,  37,   9, 232,   1,   2, 233, 215
  53. 530  DATA   0,  46, 199,   6,  24,   9,   9,   0,  46, 199
  54. 540  DATA   6,  17,   9, 252,   3, 141,   6,  78,  11,  46
  55. 550  DATA 163,  28,   9, 232, 131,   1, 232, 196,   0, 233
  56. 560  DATA 184,   0,  46, 247,   6,  21,   9,   1,   0, 116
  57. 570  DATA  68, 137,  30,  28,   0, 129, 250,   0,  72, 117
  58. 580  DATA  26,  46, 255,  14,  24,   9,  46, 131,  62,  24
  59. 590  DATA   9,   0, 125,   7,  46, 199,   6,  24,   9,   9
  60. 600  DATA   0, 232, 151,   0, 233, 139,   0, 129, 250,   0
  61. 610  DATA  80, 117, 171,  46, 255,   6,  24,   9,  46, 131
  62. 620  DATA  62,  24,   9,   9, 126,   7,  46, 199,   6,  24
  63. 630  DATA   9,   0,   0, 232, 119,   0, 235, 108, 144, 129
  64. 640  DATA 250,   8,  14, 117,  32,  46, 139,  30,  12,   9
  65. 650  DATA 129, 251, 150,   3, 126,  18,  46, 131,  46,  12
  66. 660  DATA   9,   2,  46, 198, 135,  18,   1,  32,  46, 198
  67. 670  DATA 135,  19,   1,  57, 235,  70, 144, 128, 250,  13
  68. 680  DATA 116,  33, 128, 250,  32, 125,  28,  46, 199,   6
  69. 690  DATA  12,   9, 150,   3, 185,  51,   0, 187, 150,   3
  70. 700  DATA  46, 199, 135,  20,   1,   0,   0, 131, 195,   2
  71. 710  DATA 226, 244, 235,  32, 144,  46, 139,  30,  12,   9
  72. 720  DATA 129, 251, 250,   3, 125,  11,  46, 137, 151,  20
  73. 730  DATA   1,  46, 131,   6,  12,   9,   2, 129, 250,  13
  74. 740  DATA  28, 117,   3, 232,  42,   0,   7,  31,  94,  95
  75. 750  DATA  90,  89,  91,  88, 207,  80,  46, 198,   6,  14
  76. 760  DATA   9, 112,  46, 198,   6,  15,   9, 240,  46, 199
  77. 770  DATA   6,  17,   9,   0,   0, 141,   6, 124,  11,  46
  78. 780  DATA 163,  28,   9, 232, 157,   0,  88, 195,  83,  81
  79. 790  DATA  87,  86,  30,   6,  14,  31,  30,   7, 141,  62
  80. 800  DATA  20,   1, 139, 247, 131, 198, 102, 185, 203,   1
  81. 810  DATA 139,  30,  12,   9, 129, 251, 152,   3, 116,  16
  82. 820  DATA 199, 135,  20,   1,   0,   0, 243, 165, 185,  51
  83. 830  DATA   0, 184,  32,  57, 243, 171, 199,   6,  12,   9
  84. 840  DATA 150,   3,   7,  31,  94,  95,  89,  91, 195,  82
  85. 850  DATA 190,2,0,46,139,22,30,9,236,168
  86. 860  DATA 1,117,251,236,168,1,116,251,38,138
  87. 870  DATA 37,71,78,131,254,0,116,7,46,136
  88. 880  DATA 167,20,1,235,229,46,136,38,16,9
  89. 890  DATA 131,195,2,90,195,82,46,138,167,20
  90. 900  DATA 1,128,252,32,115,2,180,32,190,2
  91. 910  DATA 0,46,139,22,30,9,236,168,1,117
  92. 920  DATA 251,236,168,1,116,251,38,136,37,46
  93. 930  DATA 138,38,14,9,71,78,117,234,131,195
  94. 940  DATA 2,90,195,187,0,176,142,195,30,187
  95. 950  DATA 64,0,142,219,187,74,0,139,31,131
  96. 960  DATA 235,51,3,219,46,137,30,19,9,31
  97. 970  DATA 46,139,62,26,9,46,3,62,19,9
  98. 980  DATA 46,139,30,17,9,185,10,0,46,255
  99. 990  DATA 54,14,9,81,247,217,131,193,10,46
  100. 1000  DATA 59,14,24,9,117,10,46,138,14,15
  101. 1010  DATA 9,46,136,14,14,9,89,186,51,0
  102. 1020  DATA 46,255,22,28,9,74,117,248,46,3
  103. 1030  DATA 62,19,9,46,143,6,14,9,226,204
  104. 1040  DATA 195,30,86,87,82,81,83,80,184,64
  105. 1050  DATA 0,142,216,46,198,6,36,9,1,139
  106. 1060  DATA 30,28,0,46,139,54,37,9,46,139
  107. 1070  DATA 132,20,1,131,198,2,61,0,0,116
  108. 1080  DATA 50,139,211,131,194,2,131,250,62,124
  109. 1090  DATA 3,186,30,0,59,22,26,0,116,25
  110. 1100  DATA 46,131,6,37,9,2,137,7,131,195
  111. 1110  DATA 2,131,251,62,124,3,187,30,0,137
  112. 1120  DATA 30,28,0,235,199,46,198,6,36,9
  113. 1130  DATA 0,88,91,89,90,95,94,31,251,195
  114. 1140  DATA 156,30,14,31,255,30,39,9,156,128
  115. 1150  DATA 62,36,9,1,116,97,250,30,86,82
  116. 1160  DATA 83,80,184,64,0,142,216,139,30,28
  117. 1170  DATA 0,46,198,6,36,9,1,46,139,54
  118. 1180  DATA 37,9,46,139,132,20,1,131,198,2
  119. 1190  DATA 61,0,0,117,3,235,51,144,139,211
  120. 1200  DATA 131,194,2,131,250,62,124,3,186,30
  121. 1210  DATA 0,59,22,26,0,116,25,46,131,6
  122. 1220  DATA 37,9,2,137,7,131,195,2,131,251
  123. 1230  DATA 62,124,3,187,30,0,137,30,28,0
  124. 1240  DATA 235,196,46,198,6,36,9,0,88,91
  125. 1250  DATA 90,94,31,157,31,207,184,0,0,142
  126. 1260  DATA 216,161,36,0,46,163,32,9,161,38
  127. 1270  DATA 0,46,163,34,9,199,6,36,0,45
  128. 1280  DATA 9,140,14,38,0,161,112,0,46,163
  129. 1290  DATA 39,9,161,114,0,46,163,41,9,199
  130. 1300  DATA 6,112,0,113,12,140,14,114,0,184
  131. 1310  DATA 64,0,142,216,187,30,0,137,30,26
  132. 1320  DATA 0,137,30,28,0,180,15,205,16,46
  133. 1330  DATA 199,6,30,9,186,3,168,4,117,14
  134. 1340  DATA 46,199,6,26,9,0,128,46,199,6
  135. 1350  DATA 30,9,218,3,186,229,12,205,39
  136.